home *** CD-ROM | disk | FTP | other *** search
/ CU Amiga Super CD-ROM 18 / CU Amiga Magazine's Super CD-ROM 18 (1997)(EMAP Images)(GB)[!][issue 1998-01].iso / CUCD / Programming / AmigaE / Src / Class / ScrollWin / textview.e < prev   
Encoding:
Text File  |  1994-11-09  |  394 b   |  16 lines
  1. -> show a textfile in a nice juicy scrolling window
  2.  
  3. MODULE 'tools/file', 'tools/exceptions', 'class/sctext'
  4.  
  5. PROC main() HANDLE
  6.   DEF m,l,n,list,sc=NIL:PTR TO scrolltext
  7.   m,l:=readfile(arg)
  8.   list:=stringsinfile(m,l,n:=countstrings(m,l))
  9.   NEW sc.settext(list,100)
  10.   sc.open('TextView v0.1',20,20,300,150)
  11.   WHILE sc.handle()=FALSE DO Wait(-1)
  12. EXCEPT DO
  13.   END sc
  14.   report_exception()
  15. ENDPROC
  16.